Fortran 超类和子类

通过 extends 定义子类：

type, public, extends(employee) salaried_employee
  private
  real :: salary = 0
contains
  procedure, public :: set_salary
  procedure, public :: calc_pay
end type

其中 salary 是新属性，set_salary 是新方法，calc_pay 是重载方法。